-- card: 4950 from stack: in
-- bmap block id: 5289
-- flags: 4000
-- background id: 2715
-- name: Text
----- HyperTalk script -----
function getField clickPoint
repeat with x = 1 to the number of card fields
  if clickPoint is within the rect of card field x then
    return the short name of card field x
  end if
end repeat
end getField

on closeCard
  hide card button "Paste"
end closeCard

on openCard
  choose browse tool
end openCard



-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=16 top=40 right=106 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text1


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=276 top=30 right=95 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text5


-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=16 top=108 right=173 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text2


-- part 4 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=16 top=177 right=242 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text3


-- part 5 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=16 top=247 right=312 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text4


-- part 7 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=276 top=97 right=163 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text6


-- part 8 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=276 top=166 right=232 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text7


-- part 10 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=190 top=65 right=289 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text9


-- part 11 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=276 top=235 right=301 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text8


-- part 14 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=201 top=306 right=321 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear!
----- HyperTalk script -----
on mouseUp
  answer "Clear all card fields?" with "Yes" or "Cancel"
  if it is "Cancel" then exit mouseUp
  repeat with x = 1 to the number of card fields
    put empty into card field x
  end repeat
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=0 top=12 right=303 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Paste
----- HyperTalk script -----
on mouseUp
  put empty into fieldName
  put getField(the clickloc) into fieldName
  if card field fieldName is empty then exit mouseUp
  put the number of lines in card field fieldName into x
  select line 1 to x of card field fieldName
  doMenu "Copy Text"
  hide me
  pop card
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=292 right=317 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Paste
----- HyperTalk script -----
on mouseUp
  put empty into fieldName
  put getField(the clickloc) into fieldName
  put card field fieldName
  put the number of lines in card field fieldName into x
  select line 1 to x of card field fieldName
  doMenu "Copy Text"
  pop card
end mouseUp